home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Grafik / VBorderDemo / rexx / VisualBorderDemo.rexx
Encoding:
OS/2 REXX Batch file  |  1998-11-08  |  2.0 KB  |  157 lines
  1. /*
  2.  
  3.    v1.00 Visual Border Demo
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. signal on error
  15.  
  16. if arg()=0 then exit
  17. pic=arg(1)
  18.  
  19. PROJECT_INFO pic WIDTH
  20. picwidth=result
  21. PROJECT_INFO pic HEIGHT
  22. picheight=result
  23.  
  24.  
  25.  
  26.  
  27.  
  28. /*
  29.     . THE BEGINNING .
  30.                         */
  31.  
  32.  
  33.   'FORM "Visual Border" "Use|Cancel"',
  34.   'CYCLE,"Bordertype","EdgeShade|Scratch|Gradient|Niche|Raised|Glow|RoundCorner|Polka|Test|ShinyShape|Button",2'
  35.  
  36.   values=result
  37.   parse var values ok visual .
  38.  
  39.   if ok = 0 then exit
  40.  
  41.  
  42.  
  43.  
  44.  
  45. /* ..NOW WE ARE GETTIN' INTO IT.. */
  46.  
  47.  
  48.  
  49.   if visual~="2" then do
  50.  
  51.     'REQUEST "You can only use Gradient-effect" "Use|Quit"'
  52.     but=result
  53.  
  54.     if but=="0" then exit
  55.  
  56.   end
  57.  
  58.  
  59.   'FORM "Visual Border - gradient" "Use|Cancel"',
  60.   'INTEGER,"Border size",1,40,10,SLIDER'
  61.  
  62.   values=result
  63.   parse var values ok bsize .
  64.   if ok = 0 then exit
  65.  
  66.  
  67.   OPEN "ie:alpha/gradient.alpha" COLOUR
  68.   grad=result
  69.  
  70.   SCALE grad 50 picheight BEST
  71.   grad2=result
  72.  
  73.   CLOSE grad
  74.  
  75.   MARK grad2 ALPHA
  76.   MARK grad2 PRIMARY
  77.   MARK pic SECONDARY
  78.  
  79.   COMPOSITE "-46"+bsize 0 ADD
  80.   x0=result
  81.  
  82.   MARK x0 SECONDARY
  83.  
  84.   COMPOSITE picwidth-4-bsize 0 MULTIPLY
  85.   x1=result
  86.  
  87.   CLOSE x0
  88.  
  89.   MARK x1 SECONDARY
  90.  
  91.   COMPOSITE picwidth-4-bsize 0 MULTIPLY
  92.   x1b=result
  93.  
  94.  
  95.   ROTATE x1b 270 FAST
  96.   x2=result
  97.  
  98.   CLOSE x1b
  99.  
  100.   if picwidth~=picheight then
  101.   do
  102.     SCALE grad2 50 picwidth BEST
  103.     grad2b=result
  104.  
  105.     CLOSE grad2
  106.  
  107.     grad2=grad2b
  108.  
  109.   end
  110.  
  111.   CLOSE x1
  112.  
  113.   MARK grad2 ALPHA
  114.   MARK grad2 PRIMARY
  115.   MARK x2 SECONDARY
  116.  
  117.   COMPOSITE "-46"+bsize 0 ADD
  118.   x3=result
  119.  
  120.   CLOSE x2
  121.  
  122.   MARK x3 SECONDARY
  123.   COMPOSITE picheight-4-bsize 0 MULTIPLY
  124.   x4=result
  125.  
  126.   CLOSE x3
  127.  
  128.   MARK x4 SECONDARY
  129.   COMPOSITE picheight-4-bsize 0 MULTIPLY
  130.   x4b=result
  131.  
  132.   CLOSE x4
  133.   CLOSE grad2
  134.  
  135.   ROTATE x4b 90 FAST
  136.   x5=result
  137.  
  138.   CLOSE x4b
  139.  
  140.  
  141.   exit
  142.  
  143.  
  144. error:
  145. if RC=5 then do
  146.     IE_TO_FRONT
  147.     LAST_ERROR
  148.     'REQUEST "'||RESULT||'"'
  149.     exit
  150. end
  151. else do
  152.     IE_TO_FRONT
  153.     LAST_ERROR
  154.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  155.     exit
  156. end
  157.